object FolderSelector: TFolderSelector Left = 199 Top = 126 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Select a folder' ClientHeight = 341 ClientWidth = 409 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate DesignSize = ( 409 341) PixelsPerInch = 96 TextHeight = 13 object bOK: TButton Left = 296 Top = 8 Width = 107 Height = 25 Anchors = [akTop, akRight] Caption = '&OK' Default = True ModalResult = 1 TabOrder = 1 end object bCancel: TButton Left = 296 Top = 48 Width = 107 Height = 25 Anchors = [akTop, akRight] Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 2 end object bNew: TButton Left = 296 Top = 303 Width = 109 Height = 25 Anchors = [akRight, akBottom] Caption = 'New...' Enabled = False TabOrder = 3 OnClick = bNewClick end object mlFolders: TMLVGrid Left = 8 Top = 8 Width = 281 Height = 320 Anchors = [akLeft, akTop, akRight, akBottom] ColCount = 1 DefaultRowHeight = 16 DefaultDrawing = False FixedCols = 0 RowCount = 1 FixedRows = 0 Options = [goThumbTracking] TabOrder = 0 OnDblClick = mlFoldersDblClick OnKeyDown = mlFoldersKeyDown OnMouseDown = mlFoldersMouseDown AltDrag = True AutoColResize = True AutoSearch = True MultiSelect = False OnFocusItem = mlFoldersFocusItem ImmediateSelect = False OnDrawItemImage = mlFoldersDrawItemImage end object bSelectAll: TButton Left = 296 Top = 96 Width = 107 Height = 25 Anchors = [akTop, akRight] Caption = 'Select &All' TabOrder = 4 Visible = False OnClick = bSelectAllClick end object bUnselectAll: TButton Left = 296 Top = 136 Width = 107 Height = 25 Anchors = [akTop, akRight] Caption = '&Unselect all' TabOrder = 5 Visible = False OnClick = bSelectAllClick end end